home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 0574.ZIP / CLOSE.ASM < prev    next >
Assembly Source File  |  1986-08-30  |  419b  |  30 lines
  1. include compiler.inc
  2.     ttl    CLOSE, 1.04, 08-30-86, clr
  3.  
  4. ;low-level file closer
  5.  
  6.     dseg
  7.     exterr
  8.  
  9.     cseg
  10.     procdef    close, <<handle, word>>
  11.  
  12.     xor    ax,ax
  13.     moverr    ax
  14.     mov    bx,handle    ;pick up handle
  15.     mov    ax,3E00h
  16.     int    21h        ;have DOS close it
  17.     jnc    ok
  18.     moverr    ax    ;save any error
  19.     mov    ax,-1
  20.     jmp    short    err    ;return error code if error
  21. ;
  22. ok:
  23.     xor    ax,ax        ;return NULL if ok
  24. err:
  25.     pret
  26. ;
  27.     pend    close
  28.  
  29.     finish
  30.